Imports CrystalDecisions.Shared
Imports System.Windows.Forms

Public Class frmCurrent

    Public Function BindReport(ByVal ds As DataSet) As Boolean
        Dim oRpt As ReportDocument
        oRpt = CrystalReportViewer1.ReportSource
        oRpt.SetDataSource(ds)
        oRpt = CrystalReportViewer1.ReportSource
        CrystalReportViewer1.ReportSource = oRpt
        Cursor = Cursors.Default

    End Function

End Class
